FM Towns: Free Software Collection 4

home *** CD-ROM | disk | FTP | other *** search

/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / eri.bas < prev next >

Wrap

BASIC Source File | 1991-10-18 | 12KB | 232 lines

1 KEY (1) ON :ON KEY (1) GOSUB 65010:PLAY OFF 1000 ' ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 1010 ' ■　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　■ 1020 ' ■　　　　　Ｆｕｒ　Ｅｌｉｓｅ　（　エリーゼのために　）　　　　■ 1030 ' ■　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　■ 1040 ' ■　　　　　　　　Ｌ．ｖａｎ　Ｂｅｅｔｈｏｖｅｎ　　　　　　　　■ 1050 ' ■　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　■ 1060 ' ■　　　　　　Ｐｒｏｇｒａｍｅｄ　ｂｙ　Ｗ．ＭｏＭｏ　　　　　　■ 1070 ' ■　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　■ 1080 ' ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 1090 ' 1100 ' 初期設定 1110 ' 1120 PLAY OFF:LOAD@"Q:\FJ\PCM\CLASSIC2.PMB":GOSUB *メッセージ:GOSUB *F_OUT:GOSUB *画面 1130 T$="Q8U0T86":PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$ 1140 A=13:FOR I=0 TO 13:PART A,I:A=A-1:NEXT 1150 ' 1160 ' ＭＭＬ　ＳＥＴ 1170 ' 1180 A0A$="@1L16O4ED+ ]E]D+]E<[B>[D[C<A8RCEAB8REG+B>C8R<E>ED+ ]E]D+]E<[B>[D[C<A8RCEAB8RE>C<B" 1190 A0$="%CV8"+A0A$+"A4":B0$="U-10%L5V4R16"+A0A$+"A8.":C0$="U-20%R7V3R8"+A0A$+"A8" 1200 D0$="%L@1O1L16V7 RR RRRRRR A4RRE4R RA4RR RRRRRR A4RRE4R RA4]]]" 1210 E0$="%C@1O2L16V7 RR RRRRRR RE4RRE4 RRE4R RRRRRR RE4RRE4 RRE4]]]" 1220 F0$="%R@1O2L16V7 RR RRRRRR RRA4RRG+4RRA4 RRRRRR RRA4RRG+4RRA]]]" 1230 A1$=A0A$+"A8R]B>]C]D":B1$="R"+A0A$+"A8R]B>]C]":C1$="RR"+A0A$+"A8R]B]>]" 1240 A2A$="E8.<G>FED8.<F>ED[C8.<E>DC<[B8RE>ERRE>E<RRD+ERR[D+ED+ ED+EDC<A8RCEAB8REG+B>C8R<E>E]D+]E]D+]E[[D[C[<A8RCEAB8RE>C<B" 1250 A2$=A2A$+"A8R]B>]C]D":B2$="R"+A2A$+"A8R]B>]C]":C2$="RR"+A2A$+"A8R]B>]]" 1260 D2$="O2C4RR<G4RRA4RRE4R>>E>ERRD+ERRD+E4 RRRRRR [[[O1A4RRE4RRA4RR RRRRRR A4RRE4RRA4RR]]]" 1270 E2$="O2RE4R RE4RRE4RRE4R>E>ERRD+ERRD+E8.<<RRRRRR [[[O2RE4R RE4R RE4R RRRRRR RE4R RE4R RE4R]]]" 1280 F2$="O2RR>C4RR<B4RRA4RR>E4RE>ERRD+ERRD+E8 RRRRRR [[[O2RRA4RRG+4RRA4 RRRRRR RRA4RRG+4RRA4]]]" 1290 A3$=A2A$+"A8R>Q4]C]C]C":B3$="R"+A2A$+"A8R>Q4]C]C]":C3$="RR"+A2A$+"A8R>]Q4C]]" 1300 G3A$="%R10@1L16O3RRRQ4]E]F]G" 1310 G3$="L16V7(((RRRRRR)2)2)3RRRRRR"+G3A$ 1320 H3$="@1%L10L16V7(((RRRRRR)2)2)3RRRRRRO3RRR]R]R]Q4E" 1330 D3$="O2C4RR<G4RRA4RRE4R>>E>ERRD+ERRD+E4 RRRRRR [[[O1A4RRE4RRA4RR RRRRRR A4RRE4RRARRQ4O3]C]C]C" 1340 E3$="O2RE4R RE4RRE4RRE4R>E>ERRD+ERRD+E8.<<RRRRRR [[[O2RE4R RE4R RE4R RRRRRR RE4R RE4R RERQ4]B-]A]B-" 1350 F3$="O2RR>C4RR<B4RRA4RR>E4RE>ERRD+ERRD+E8 RRRRRR [[[O2RRA4RRG+4RRA4 RRRRRR RRA4RRG+4RRAQ4]R]R]G" 1360 A4A$="Q8O3F32A32>C16&C8]]F.[[E32E8D8]]B-.[[A32AGFEDC<[B-8[A8B64A64G32A32B32>C4DD+" 1370 A4$="T-5"+A4A$+"E8.EF<A>":B4$="R"+A4A$+"E8.EF":C4$="RR"+A4A$+"E8.E" 1380 D4$="Q8O2F8.A>C<AF8.B->D<B-F>E<B->E<B->E<[F8.[A>C<AF8.A>C<AE8.A>D<F" 1390 E4$="Q8O2RA8.[[A>C<A]]B-8.[[B->D<B-]]RGRGRR[A8.[[[A>C<A]]A8.[[A>C<A]]A8.[[A]]" 1400 F4$="Q8O2RR>C8.[[[[<A>C<A]]]]>D8.[[[[<B->D]]]]E<F>E<F>ERR[C8.[[[[[<A>C<A]]]]>C8.[[[[<A>C<A]]]]>CR<DF" 1410 A5A$="L16C4D.L32 ]CG<G>G <A>GG CGDG ]E]G]>]C<]BA[GF[ED[GF[D CG<G>G<A>GG" 1420 A5$=A5A$+"CGDG":B5$="L16R"+A5A$+"CG":C5$="L16RR"+A5A$ 1430 D5$="O2G8.>E<G>FC8.Q6GGGQ8G8<A8B8>C8.Q6GGGQ8" 1440 E5$="O2R>C8.E<G>FRRQ6RRFQ8E8R8R8R8RQ6RRFQ8" 1450 F5$="O2RRG8.>RC8.Q6FEDQ8C8<F8G8>C8.Q6FED" 1460 A6A$="]E]G>]C<]B[AG[FE[DG[FD EFED+EED+EED+" 1470 A6$=A6A$+"T+5E8.L16ED+E8.ERRD+ERR[E" 1480 B6$="R16"+A6A$+"E8.L16ED+E8.ERRD+ERR[" 1490 C6$="R8"+A6A$+"E8.L16ED+E8.ERRD+ER[" 1500 D6$="G8<A8B8B 8R8R8R8R8R8R4R O4D+ERRD+ER" 1510 E6$="E8 R8R8R 8R8R8R8R8R8R4RR O4D+ERRD+E" 1520 F6$="C8<F8G8G+8R8R8R8R8R8R4RRRO4D+ERRD+" 1530 A7A$="O4]E]D+]E[D[C<[A8RCEAB8REG+B>C8R<E>ED+ED+E[[D[C<]]]A8RCEAB8RE>C<BA8R]B]>" 1540 A7$=A7A$+"C]D":B7$="D+"+A7A$+"C]":C7$="RD+"+A7A$ 1550 D7$="RRRRRR O1 A4RRE 4RRA4RR RRRRRR A4RRE 4RRA4RR]]]" 1560 E7$="RRRRRR O2R E4RRE 4RRE4RR RRRRRR E4RRE 4RRE4R ]]]" 1570 F7$="RRRRRR O2RRA4RRG+4RRA4RR RRRRRR A4RRG+4RRA4 ]]]" 1580 A8A$="E8.<G>FED8.<G>EDC8.<E>DC[[<BRE>ERRE>E<RRD+ERR[D+" 1590 A8$=A8A$+"ED+":B8$="D"+A8A$+"E":C8$="C]D"+A8A$ 1600 D8$=" O2C4RR<G4RRA4RR [[E4RO3E>ERRD+ERRD+E[RR" 1610 E8$=" RG4RR G4RRE4RR [[E4R >E>ERRD+ERRD+E[R" 1620 F8$="RR>C4RR<B4RRA4RR>[[E4R E>ERRD+ERRD+E[" 1630 A9A$="]E]D+]E[<B[>D[C<A8RCEAB8REG+B>C8R<]E>]E]D+]E]D+]E<[[B>[[D[[C<A8RCEAB8RE>C<B]A8" 1640 A9$=A9A$+"R8R8":B9$="D+"+A9A$+"R8R":C9$="ED+"+A9A$+"R8" 1650 D9$="RRRRRR O1A4RRE4RRA4RR RRRRRR A4RRE4RR Q4[U40AAAAAAU0" 1660 E9$="RRRRRR O2RE4RRE4RRE4RR RRRRRR E4RRE4RR [RRRRR" 1670 F9$="RRRRRR O2RRA4RRG+4RRA4RR RRRRRR A4RRG+4Q4[U-40<AAAAAAU0" 1680 A10$="Q8V10%R10U0O4L4C+.D E 16F16FF8E. DC16<B16A A8>C8<B8A." 1690 B10$="Q8V10%L10U0O3L4B-.A>C+16D16DD8C.<FE16 D16F+C8E8D8C." 1700 C10$="Q8V10%R5U0O3L4G.FR8G+G+8A.R.CC8R.R." 1710 D10$="Q8V10%L5U0O3L4E4.R.R.R.R.R.R.R." 1720 E10$="V9%RQ5U40O1AAAAAA AAAAAA AAAAAA AAAAAA AAAAAA AAAAAA AAAAG+G+ AAAAAA" 1730 F10$="V9%LQ5U-40O1AAAAAA AAAAAA AAAAAA AAAAAA DDDDDD D+D+D+D+D+D+ EEEEEE U-3000CU-40AAAAA" 1740 G10$="Q8V5%L5U-40R16O4L4C+.D E 16F16FF8E. DC16<B16A A8>C8<B8A&A16" 1750 H10$="Q8V5%R5U-40R16O3L4B-.A>C+16D16DD8C.<FE16 D16F+C8E8D8C&C16" 1760 A11$=">C+.DE16F16FF8F.E-D16C16<B-A8G+G+8AR8V8B8R" 1770 B11$="B-.A>C+16D16DD8D.<GF16E-16FF8FF8ER8V8E8R" 1780 C11$="G.FR8R.R.R.DD8DD8CR8V8D8R" 1790 G11$="R16>C+.DE16F16FF8F.E-D16C16<B-A8G+G+8AR8V4B8R8." 1800 H11$="R16B-.A>C+16D16DD8D.<GF16E-16FF8FF8ER8V4E8R8." 1810 E11$="AAAAAA AAAAAA AAAAAA B-B-B-B-B-B- B-B-B-B-B-B- B-B-B-B-B-B- BBBBBB >C4R8V7G+8R" 1820 F11$="AAAAAA AAAAAA AAAAAA B-B-B-B-B-B- B-B-B-B-B-B- B-B-B-B-B-B- BBBBBB >C4R8E8R" 1830 A12A$="Q8L16O2 A>CE ]A>CE ]DCCE ]A>CE ]DCCE ]A>CE ]DC" 1840 A12$="T+7U0%CV8"+A12A$+"DC":B12$="U-10%L5V4R16"+A12A$+"D":C12$="U-20%R5V2R8"+A12A$ 1850 D12$="Q6V7%LO1U-3000C8R8U0O2A8A8R8A8A8R8A8A8R8R8R8R8R8R8R8R8" 1860 E12$="Q6V7%CO3L8RRCCRCCRCCRRRRRRRR" 1870 F12$="Q6V7%RO1U-3000L8CU0O3REEREEREERRRRRRRRR" 1880 A13A$="O3A8RCEAB8REG+B>C8R ]<E>]E]D+]E]D+]E<[[B>[[D[[C <A8RCEAB8RE>C<BA8R]B]>" 1890 A13$="T-7"+A13A$+"C]D":B13$="R"+A13A$+"C]":C13$="RR"+A13A$ 1900 D13$="Q8L16O1A4RRE4RRA4RR RRRRRR A4RRE4RRA4RR]]]" 1910 E13$="Q8L16O2RE4RRE4RRE4RR RRRRRR E4RRE4RRE4R]]]" 1920 F13$="Q8L16O2RRA4RRG+4RRA4RR RRRRRR A4RRG+4RRA4]]]" 1930 A14A$="E8.<G>FED8.<F>EDC8.<E>DC[[<BRE>ERRE>ERR<D+ERR[D+ED+ED+E" 1940 A14$=A14A$+"DC":B14$="D"+A14A$+"D":C14$="C]D"+A14A$ 1950 D14$=">C4RR<G4RRA4RR[[E4RO3E>ERRD+ERRD+E[RR RRRRRR" 1960 E14$="RG4RRG4RRE4RR[E4R>E>ERRD+ERRD+E[[RR RRRRR" 1970 F14$="RR>C4RR<B4RRA4RR[>E4RE>ERRD+ERRD+E[[RR RRRR" 1980 A15A$="<A8RCEAB8REG+B>C8R ]<E>]E]D+]E]D+]E<[[B>[[D[[C <A8RCEAB8RD>" 1990 A15$=A15A$+"%R5C<BA2":B15$="C"+A15A$+"C<BR4":C15$="DC"+A15A$+"V8<%L5C2" 2000 D15$="O1 A4RRE 4RRA4RR RRRRRR A4RRE 4RRA2" 2010 E15$="O2 RE4RRE 4RRE4RR RRRRRR E4RRE 4R R2" 2020 F15$="O2RRA4RRG+4RRA4RR RRRRRR A4RRG+4<U-3000C2" 2030 ' 2040 '　ＰＬＡＹ 2050 ' 2060 PLAY A0$,B0$,C0$,D0$,E0$,F0$ 2070 PLAY A1$,B1$,C1$,D0$,E0$,F0$ 2080 PLAY A2$,B2$,C2$,D2$,E2$,F2$ 2090 PLAY A3$,B3$,C3$,D3$,E3$,F3$,G3$,H3$ 2100 PLAY A4$,B4$,C4$,D4$,E4$,F4$ 2110 PLAY A5$,B5$,C5$,D5$,E5$,F5$ 2120 PLAY A6$,B6$,C6$,D6$,E6$,F6$ 2130 PLAY A7$,B7$,C7$,D7$,E7$,F7$ 2140 PLAY A8$,B8$,C8$,D8$,E8$,F8$ 2150 PLAY A9$,B9$,C9$,D9$,E9$,F9$ 2160 PLAY A10$,B10$,C10$,D10$,E10$,F10$,G10$,H10$ 2170 PLAY A11$,B11$,C11$,D11$,E11$,F11$,G11$,H11$ 2180 PLAY A12$,B12$,C12$,D12$,E12$,F12$ 2190 PLAY A13$,B13$,C13$,D13$,E13$,F13$ 2200 PLAY A14$,B14$,C14$,D14$,E14$,F14$ 2210 PLAY A15$,B15$,C15$,D15$,E15$,F15$ 2220 GOTO 65000 2230 ' 2240 ' 画面ですぅ 2250 ' 2260 *画面 2270 ' 2280 SCREEN@1:COLOR 7,0,0,0:CLS 2290 ' 2300 X=100:Y=200:Z=120:A=1:B=5:FOR III=1 TO 3:FOR II=A TO B:FOR I=A TO B 2310 SYMBOL( I,II ),"エリーゼのために",2,2,[Y/X,Z,Z] 2320 SYMBOL(12+I,II+45),"Ｌ.ｖａｎＢｅｅｔｈｏｖｅｎ作曲",1,2,[Z-10/Y/13*11,Z/31*29,Z/23*21] 2330 SYMBOL(12+I,II+100)," ＢＥＹＥＲを参考",2,2,[Z-20/Y,Z/13*11,Z/Y] 2340 SYMBOL(12+I,II+145)," 僕は原曲知らないよー。",1,2,[Z-30/Y,Z,Y] 2350 SYMBOL(6+I,II+190),"ＰＲＯＧＲＡＭＥＤ　ＢＹ　Ｗ．ＭｏＭｏ",1,2,[Z/7*8,Z/13*10,Z/21*19] 2360 NEXT:NEXT:A=A+1:B=B-1:X=X-25:Y=Y-16:Z=Z+40:K=K+10:NEXT:RETURN 2370 ' 2380 *メッセージ 2390 ' 2400 ' メッセージ・データ 2410 ' 2420 DATA 今回もＰＩＡＮＯの曲作ってしまいました。 2430 DATA 音色はＣＬＡＳＳＩＣ２．ＰＭＢのものです。 2440 DATA ＰＩＡＮＯ．ＰＭＢより音質はいいと思いますが「まーだまーだ((Ｃ)リアル麻雀Ｐ．IIショーコ)」です。 2460 DATA 曲の説明は充分有名（だけど僕は知らないよ）なのでしなくてもいいでしょ。 2470 DATA プログラムではむちゃくちゃなことをしていますので暇な人は見ていてください。これはＶｏｌ．３が届く前に作りましたが一応ダンパーペダルを踏んだような効果を作っています（あまりそういう風には聴こえないか）。 2480 DATA " " 2520 DATA では、リターンキー、もしくは実行キーを押してください。 2530 DATA "" 2540 ' 2550 RESTORE 2360:COLOR 7,0,0,0:CLS 2560 GOSUB *SCREEN 2570 I$=INKEY$:IF I$=CHR$(13) THEN RETURN ELSE 2570 2580 ' 2590 '無駄だらけの画面表示プログラムだ。 17000 *SCREEN 17010 SCREEN@ 0 : PALETTE@ 17020 FOR I=0 TO 15 : PALETTE I,[0,0,0] : NEXT 17030 COLOR ,%5 : CLS 17040 X=630 : Y=30 : MX=2 : MY=3: R=3 : C1=1 : C2=5 : C3=15 : F=16 17050 ST$="ＰＩＣＫ　ＵＰ　ＴＯＷＮＳ" : GOSUB *STR_PUT 17060 X=575 : Y=30 : MX=2 : MY=3 : R=3 : C1=1 : C2=5 : C3=15 : F=16 17070 ST$="ＭＵＳＩＣ　ＰＲＯＧＲＡＭ" : GOSUB *STR_PUT 17080 GOSUB *F_IN : FOR I=0 TO 2000 : NEXT 17090 X1=10 : X2=590 : Y1=10 : Y2=460 : C1=1 : C2=6 : C3=15 17100 GOSUB *WAKU 17110 X1=20 : X2=580 : Y1=20 : Y2=90 : C1=15 : C2=7 : C3=5 17120 GOSUB *WAKU 17130 X1=20 : X2=580 : Y1=420 : Y2=450 : C1=15 : C2=7 : C3=5 17140 GOSUB *WAKU 17150 X1=20 : X2=580 : Y1=100 : Y2=410 : C1=15 : C2=7 : C3=5 17160 GOSUB *WAKU 17170 SYMBOL (30,430),"ＰＦ１キーを押すと、演奏を中断して音楽ＭＥＮＵに戻ります。",1,1,0,,,1 17180 SYMBOL (30,30),"　ＴＩＴＬＥ　",1,1,0,0,PSET,17 17190 SYMBOL (80,53),"Ｆｕｒ　Ｅｌｉｓｅ　（　エリーゼのために　）",1,2,0,0,PSET,1 17200 SYMBOL (30,110),"　ＤＡＴＡ　",1,1,0,0,PSET,17 17210 SYMBOL (80,140),"Programed by　Ｗ．ＭｏＭｏ",1,1,0,0,PSET,1,1 17220 SYMBOL (80,160)," Composed by　Ｌ．ｖａｎ　Ｂｅｅｔｈｏｖｅｎ",1,1,0,0,PSET,1,1 17230 SYMBOL (30,200),"　ＭＥＳＳＡＧＥ　",1,1,0,0,PSET,17 17240 'ST$()="･･････････････････････････････････････････････････････" 17250 ST$(0)="　今回もＰＩＡＮＯの曲作ってしまいました。音色はＣＬＡＳＳＩＣ" 17260 ST$(1)="２．ＰＭＢのものです。ＰＩＡＮＯ．ＰＭＢより音質はいいと思いま" 17270 ST$(2)="すが「まーだまーだ((Ｃ)リアル麻雀Ｐ．IIショーコ)」です。" 17280 ST$(3)="　曲の説明は充分有名（だけど僕は知らないよ）なのでしなくてもい" 17290 ST$(4)="いでしょ。プログラムではむちゃくちゃなことをしていますので暇な" 17300 ST$(5)="人は見ていてください。一応ダンパーペダルを踏んだような効果を作っ" 17310 ST$(6)="ています（あまりそういう風には聴こえないか）。" 17320 ST$(7)="では、リターンキー、もしくは実行キーを押してください。" 17330 GOSUB *MESSAGE 17340 RETURN 17350 *STR_PUT 17360 SYMBOL (X,Y),ST$,MX,MY,%C1,R,PSET,F 17370 SYMBOL (X+1,Y),ST$,MX,MY,%C1,R,PSET,F 17380 SYMBOL (X+2,Y),ST$,MX,MY,%C1,R,PSET,F 17390 SYMBOL (X+2,Y-1),ST$,MX,MY,%C1,R,PSET,F 17400 SYMBOL (X+2,Y-2),ST$,MX,MY,%C1,R,PSET,F 17410 SYMBOL (X,Y-2),ST$,MX,MY,%C3,R,PSET,F 17420 SYMBOL (X+1,Y-2),ST$,MX,MY,%C3,R,PSET,F 17430 SYMBOL (X,Y-1),ST$,MX,MY,%C3,R,PSET,F 17440 SYMBOL (X+1,Y-1),ST$,MX,MY,%C2,R,PSET,F 17450 RETURN 17460 *WAKU 17470 LINE (X1+2,Y1+2)-(X2-2,Y2-2),PSET,%C2,BF 17480 CONNECT (X1,Y2)-(X1,Y1)-(X2,Y1),%C3 17490 CONNECT (X1+1,Y2-1)-(X1+1,Y1+1)-(X2-1,Y1+1),%C3 17500 CONNECT (X1+1,Y2)-(X2,Y2)-(X2,Y1+1),%C1 17510 CONNECT (X1+2,Y2-1)-(X2-1,Y2-1)-(X2-1,Y1+2),%C1 17520 RETURN 17530 *MESSAGE 17540 FOR I=0 TO 7 17550 SYMBOL (50,230+20*I),ST$(I),1,1,0,0,PSET,1 17560 NEXT I 17570 RETURN 17580 *F_OUT 17590 FOR I=16 TO 1 STEP -1 : GOSUB *PALETTE : NEXT I :COLOR ,%0: CLS: RETURN 17600 *F_IN 17610 FOR I=1 TO 16 : GOSUB *PALETTE : NEXT I : RETURN 17620 *PALETTE 17630 PALETTE 1,[0*I,0*I,1*I] 17640 PALETTE 2,[1*I,0*I,2*I] 17650 PALETTE 3,[2*I,1*I,3*I] 17660 PALETTE 4,[4*I,2*I,6*I] 17670 PALETTE 5,[8*I,6*I,9*I] 17680 PALETTE 6,[12*I,10*I,13*I] 17690 PALETTE 7,[14*I,13*I,15*I] 17700 PALETTE 15,[15*I,15*I,15*I] 17710 RETURN 65000 BGM 0:PLAY "R64":BGM 1 65010 KEY (1) OFF:PLAY OFF:FOR I=0 TO 13:PART I,I:NEXT:RUN"MENU.BAS"